home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / pro.spr < prev    next >
Encoding:
Text File  |  1994-08-12  |  21.7 KB  |  792 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/12/94               PRO.SPR                 12:50:23 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc                          
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsi0ripuk")
  42.     DEFINE WINDOW _qsi0ripuk ;
  43.         AT  15.923, 24.200  ;
  44.         SIZE 7.154,36.600 ;
  45.         TITLE "Manufacturer" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         NOFLOAT ;
  48.         CLOSE ;
  49.         NOMINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsi0ripuk CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *           PRO/Windows Setup Code - SECTION 2            
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. M.Mke = ' '
  64. M.Mke = PRO[1,1]
  65.  
  66. *       *********************************************************
  67. *       *                                                         
  68. *       *                PRO/Windows Screen Layout                
  69. *       *                                                         
  70. *       *********************************************************
  71. *
  72.  
  73. #REGION 1
  74. IF WVISIBLE("_qsi0ripuk")
  75.     ACTIVATE WINDOW _qsi0ripuk SAME
  76. ELSE
  77.     ACTIVATE WINDOW _qsi0ripuk NOSHOW
  78. ENDIF
  79. @ 0.077,0.200 GET M.Mke ;
  80.      PICTURE "@&N" ;
  81.     FROM Pro ;
  82.     SIZE 6.923,35.800 ;
  83.     DEFAULT 1 ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     VALID _qsi0riqkt()
  86.  
  87. IF NOT WVISIBLE("_qsi0ripuk")
  88.     ACTIVATE WINDOW _qsi0ripuk
  89. ENDIF
  90.  
  91. READ CYCLE ;
  92.     ACTIVATE _qsi0rixpr() ;
  93.     DEACTIVATE .T.
  94.  
  95. RELEASE WINDOW _qsi0ripuk
  96.  
  97. #REGION 0
  98.  
  99. SET READBORDER &rborder
  100.  
  101. IF m.talkstat = "ON"
  102.     SET TALK ON
  103. ENDIF
  104. IF m.compstat = "ON"
  105.     SET COMPATIBLE ON
  106. ENDIF
  107.  
  108.  
  109. *       *********************************************************
  110. *       *                                                         
  111. *       * _QSI0RIQKT           M.Mke VALID                        
  112. *       *                                                         
  113. *       * Function Origin:                                        
  114. *       *                                                         
  115. *       * From Platform:       Windows                            
  116. *       * From Screen:         PRO,     Record Number:    2       
  117. *       * Variable:            M.Mke                              
  118. *       * Called By:           VALID Clause                       
  119. *       * Object Type:         List                               
  120. *       * Snippet Number:      1                                  
  121. *       *                                                         
  122. *       *********************************************************
  123. *
  124. FUNCTION _qsi0riqkt     &&  M.Mke VALID
  125. #REGION 1
  126. SCXFND = .F.
  127.  
  128. DO CASE
  129.     
  130.     CASE ((M.Slct = 'Ashtrays') AND (M.Mke = 'Anchor Hocking'))
  131.         M.Numb = 24
  132.         SCXFND = .T.
  133.     CASE M.Slct = 'Ashtrays' AND M.Mke = 'Libbey'
  134.         DIMENSION Page[5,1]
  135.         STORE '26' TO Page[1,1]
  136.         STORE '27' TO Page[2,1]
  137.         STORE '29' TO Page[3,1]
  138.         STORE '35' TO Page[4,1]
  139.         STORE '39' TO Page[5,1]
  140.         DO Number.spr
  141.  
  142.     CASE M.Slct = 'Au Gratin' AND M.Mke = 'Bel-Terr China Inc.'
  143.         M.Numb = 8
  144.         SCXFND = .T.
  145.     CASE M.Slct = 'Au Gratin' AND M.Mke = 'Hall China'
  146.         M.Numb = 6
  147.         SCXFND = .T.
  148.  
  149.     CASE M.Slct = 'Bake Pans' AND M.Mke = 'Vollrath'
  150.         M.Numb = 122
  151.         SCXFND = .T.
  152.     CASE M.Slct = 'Bake Pans' AND M.Mke = 'Lincoln Foodservice'
  153.         DIMENSION Page[3,1]
  154.         STORE '121' TO Page[1,1]
  155.         STORE '123' TO Page[2,1]
  156.         STORE '124' TO Page[3,1]
  157.         DO Number.spr
  158.  
  159.     CASE M.Slct = 'Beer Mugs' AND M.Mke = 'Anchor Hocking'
  160.         M.Numb = 22
  161.         SCXFND = .T.
  162.     CASE M.Slct = 'Beer Mugs' AND M.Mke = 'Libbey'
  163.         DIMENSION Page[3,1]
  164.         STORE '33' TO Page[1,1]
  165.         STORE '36' TO Page[2,1]
  166.         STORE '38' TO Page[3,1]
  167.         DO Number.spr
  168.  
  169.     CASE M.Slct = 'Beverage Servers' AND M.Mke = 'Vollrath'
  170.         M.Numb = 55
  171.         SCXFND = .T.
  172.     CASE M.Slct = 'Beverage Servers' AND M.Mke = 'Traex'
  173.         M.Numb = 55
  174.         SCXFND = .T.
  175.     CASE M.Slct = 'Beverage Servers' AND M.Mke = 'Tablecraft'
  176.         M.Numb = 55
  177.         SCXFND = .T.
  178.     CASE M.Slct = 'Beverage Servers' AND M.Mke = 'Continental/Silite'
  179.         DIMENSION Page[2,1]
  180.         STORE '55' TO Page[1,1]
  181.         STORE '57' TO Page[2,1]
  182.         DO Number.spr
  183.     CASE M.Slct = 'Beverage Servers' AND M.Mke = 'Service Ideas, Inc.'
  184.         DIMENSION Page[2,1]
  185.         STORE '54' TO Page[1,1]
  186.         STORE '55' TO Page[2,1]
  187.         DO Number.spr
  188.         
  189.     CASE M.Slct = 'Buffetware' AND M.Mke = 'Continental/Silite'
  190.         M.Numb = 74
  191.         SCXFND = .T.
  192.     CASE M.Slct = 'Buffetware' AND M.Mke = 'Vollrath'
  193.         M.Numb = 93
  194.         SCXFND = .T.
  195.  
  196.     CASE M.Slct = 'Bun Rack' AND M.Mke = 'Bevles'
  197.         DIMENSION Page[2,1]
  198.         STORE '163' TO Page[1,1]
  199.         STORE '164' TO Page[2,1]
  200.         DO Number.spr
  201.     CASE M.Slct = 'Bun Rack' AND M.Mke = 'Metro'
  202.         M.Numb = 165
  203.         SCXFND = .T.
  204.  
  205.      CASE M.Slct = 'Carts' AND M.Mke = 'Vollrath'
  206.         M.Numb = 185
  207.         SCXFND = .T.
  208.     CASE M.Slct = 'Carts' AND M.Mke = 'Aris/Lakeside'
  209.         M.Numb = 99
  210.         SCXFND = .T.
  211.     CASE M.Slct = 'Carts' AND M.Mke = 'Rubbermaid'
  212.         M.Numb = 185
  213.         SCXFND = .T.
  214.  
  215.     CASE M.Slct = 'Chafers' AND M.Mke = 'Spring Switzerland'
  216.         DIMENSION Page[2,1]
  217.         STORE '94' TO Page[1,1]
  218.         STORE '98' TO Page[2,1]
  219.         DO Number.spr
  220.     CASE M.Slct = 'Chafers' AND M.Mke = 'Vollrath'
  221.         M.Numb = 95
  222.         SCXFND = .T.
  223.  
  224.     CASE M.Slct = 'China' AND M.Mke = 'Miscellanuous'
  225.         DIMENSION Page[8,1]
  226.         STORE '1' TO Page[1,1]
  227.         STORE '2' TO Page[2,1]
  228.         STORE '3' TO Page[3,1]
  229.         STORE '4' TO Page[4,1]
  230.         STORE '5' TO Page[5,1]
  231.         STORE '6' TO Page[6,1]
  232.         STORE '7' TO Page[7,1]
  233.         STORE '8' TO Page[8,1]
  234.         DO Number.spr
  235.     CASE M.Slct = 'China' AND M.Mke = 'Bel-Terr China Inc.'
  236.         M.Numb = 7
  237.         SCXFND = .T.
  238.     CASE M.Slct = 'China' AND M.Mke = 'Victoria Porcelain'
  239.         M.Numb = 3
  240.         SCXFND = .T.
  241.     CASE M.Slct = 'China' AND M.Mke = 'Buffalo'
  242.         M.Numb = 2
  243.         SCXFND = .T.
  244.     CASE M.Slct = 'China' AND M.Mke = 'Crest Mfg,, Inc.'
  245.         M.Numb = 1
  246.         SCXFND = .T.
  247.  
  248.     CASE M.Slct = 'Colanders' AND M.Mke = 'Lincoln Foodservice'
  249.         M.Numb = 128
  250.         SCXFND = .T.
  251.     CASE M.Slct = 'Colanders' AND M.Mke = 'Vollrath'
  252.         M.Numb = 122
  253.         SCXFND = .T.
  254.  
  255.     CASE M.Slct = 'Convection Ovens' AND M.Mke = 'Wells'
  256.         M.Numb = 158
  257.         SCXFND = .T.
  258.     CASE M.Slct = 'Convection Ovens' AND M.Mke = 'Vulcan'
  259.         M.Numb = 169
  260.         SCXFND = .T.
  261.     CASE M.Slct = 'Convection Ovens' AND M.Mke = 'Blodgett'
  262.         DIMENSION Page[2,1]
  263.         STORE '170' TO Page[1,1]
  264.         STORE '171' TO Page[2,1]
  265.         DO Number.spr
  266.     CASE M.Slct = 'Convection Ovens' AND M.Mke = 'Garland'
  267.         DIMENSION Page[2,1]
  268.         STORE '167' TO Page[1,1]
  269.         STORE '168' TO Page[2,1]
  270.         DO Number.spr
  271.  
  272.     CASE M.Slct = 'Conveyer Ovens' AND M.Mke = 'Holman'
  273.         M.Numb = 156
  274.         SCXFND = .T.
  275.     CASE M.Slct = 'Conveyer Ovens' AND M.Mke = 'Lincoln Foodservice'
  276.         M.Numb = 166
  277.         SCXFND = .T.
  278.  
  279.     CASE M.Slct = 'Covers, Sauce Pans' AND M.Mke = 'Wearever'
  280.         M.Numb = 118
  281.         SCXFND = .T.
  282.     CASE M.Slct = 'Covers, Sauce Pans' AND M.Mke = 'Lincoln Foodservice'
  283.         M.Numb = 115
  284.         SCXFND = .T.
  285.  
  286.     CASE M.Slct = 'Covers, Stock Pots' AND M.Mke = 'Vollrath'
  287.         M.Numb = 117
  288.         SCXFND = .T.
  289.     CASE M.Slct = 'Covers, Stock Pots' AND M.Mke = 'Lincoln Foodservice'
  290.         M.Numb = 114
  291.         SCXFND = .T.
  292.  
  293.     CASE M.Slct = 'Cutlery' AND M.Mke = 'F.D. Dick'
  294.         M.Numb = 105
  295.         SCXFND = .T.
  296.     CASE M.Slct = 'Cutlery' AND M.Mke = 'Russell Harrington'
  297.         DIMENSION Page[8,1]
  298.         STORE '101' TO Page[1,1]
  299.         STORE '102' TO Page[2,1]
  300.         STORE '103' TO Page[3,1]
  301.         STORE '104' TO Page[4,1]
  302.         STORE '106' TO Page[5,1]
  303.         STORE '107' TO Page[6,1]
  304.         STORE '108' TO Page[7,1]
  305.         STORE '109' TO Page[8,1]
  306.         DO Number.spr
  307.  
  308.     CASE M.Slct = 'Disposable Cups' AND M.Mke = 'Dart'
  309.         M.Numb = 198
  310.         SCXFND = .T.
  311.     CASE M.Slct = 'Disposable Cups' AND M.Mke = 'Solo'
  312.         DIMENSION Page[2,1]
  313.         STORE '197' TO Page[1,1]
  314.         STORE '199' TO Page[2,1]
  315.         DO Number.spr
  316.  
  317.     CASE M.Slct = 'Disposers' AND M.Mke = 'T&S'
  318.         M.Numb = 187
  319.         SCXFND = .T.
  320.     CASE M.Slct = 'Disposers' AND M.Mke = 'Waste King'
  321.         M.Numb = 150
  322.         SCXFND = .T.
  323.  
  324.     CASE M.Slct = 'Filter Systems' AND M.Mke = 'Dormont'
  325.         M.Numb = 173
  326.         SCXFND = .T.
  327.     CASE M.Slct = 'Filter Systems' AND M.Mke = 'Frymaster'
  328.         M.Numb = 172
  329.         SCXFND = .T.
  330.  
  331.     CASE M.Slct = 'Flateware' AND M.Mke = 'Miscellaneuos'
  332.         DIMENSION Page[4,1]
  333.         STORE '9' TO Page[1,1]
  334.         STORE '10' TO Page[2,1]
  335.         STORE '11' TO Page[3,1]
  336.         STORE '12' TO Page[4,1]
  337.         DO Number.spr
  338.     CASE M.Slct = 'Flateware' AND M.Mke = 'Delco Tableware'
  339.         DIMENSION Page[2,1]
  340.         STORE '9' TO Page[1,1]
  341.         STORE '10' TO Page[2,1]
  342.         DO Number.spr
  343.     CASE M.Slct = 'Flateware' AND M.Mke = 'Oneida'
  344.         DIMENSION Page[2,1]
  345.         STORE '11' TO Page[1,1]
  346.         STORE '12' TO Page[2,1]
  347.         DO Number.spr
  348.         
  349.     CASE M.Slct = 'Freezers' AND M.Mke = 'Delfield'
  350.         M.Numb = 177
  351.         SCXFND = .T.
  352.     CASE M.Slct = 'Freezers' AND M.Mke = 'True'
  353.         M.Numb = 178
  354.         SCXFND = .T.
  355.  
  356.     CASE M.Slct = 'Fry Pan Server' AND M.Mke = 'Bel-Terr China Inc.'
  357.         M.Numb = 7
  358.         SCXFND = .T.
  359.     CASE M.Slct = 'Fry Pan Server' AND M.Mke = 'Hall China'
  360.         M.Numb = 5
  361.         SCXFND = .T.
  362.  
  363.     CASE M.Slct = 'Fry Pans' AND M.Mke = 'Lincoln Foodservice'
  364.         M.Numb = 114
  365.         SCXFND = .T.
  366.     CASE M.Slct = 'Fry Pans' AND M.Mke = 'Wearever'
  367.         M.Numb = 118
  368.         SCXFND = .T.
  369.  
  370.     CASE M.Slct = 'Fryers' AND M.Mke = 'FryMaster'
  371.         M.Numb = 172
  372.         SCXFND = .T.
  373.     CASE M.Slct = 'Fryers' AND M.Mke = 'Wells'
  374.         DIMENSION Page[2,1]
  375.         STORE '158' TO Page[1,1]
  376.         STORE '168' TO Page[2,1]
  377.         DO Number.spr
  378.  
  379.     CASE M.Slct = 'Glass Dinnerware' AND M.Mke = 'Libbey'
  380.         M.Numb = 25
  381.         SCXFND = .T.
  382.     CASE M.Slct = 'Glass Dinnerware' AND M.Mke = 'Anchor Hocking'
  383.         M.Numb = 13
  384.         SCXFND = .T.
  385.     CASE M.Slct = 'Glass Dinnerware' AND M.Mke = 'Kelsey Dinnerware'
  386.         M.Numb = 13
  387.         SCXFND = .T.
  388.  
  389.     CASE M.Slct = 'Glassware' AND M.Mke = 'Anchor Hocking'
  390.         DIMENSION Page[12,1]
  391.         STORE '13' TO Page[1,1]
  392.         STORE '14' TO Page[2,1]
  393.         STORE '15' TO Page[3,1]
  394.         STORE '16' TO Page[4,1]
  395.         STORE '17' TO Page[5,1]
  396.         STORE '18' TO Page[6,1]
  397.         STORE '19' TO Page[7,1]
  398.         STORE '20' TO Page[8,1]
  399.         STORE '21' TO Page[9,1]
  400.         STORE '22' TO Page[10,1]
  401.         STORE '23' TO Page[11,1]
  402.         STORE '24' TO Page[12,1]
  403.         DO Number.spr
  404.      CASE M.Slct = 'Glassware' AND M.Mke = 'Libbey'
  405.         DIMENSION Page[16,1]
  406.         STORE '25' TO Page[1,1]
  407.         STORE '26' TO Page[2,1]
  408.         STORE '27' TO Page[3,1]
  409.         STORE '28' TO Page[4,1]
  410.         STORE '29' TO Page[5,1]
  411.         STORE '30' TO Page[6,1]
  412.         STORE '31' TO Page[7,1]
  413.         STORE '32' TO Page[8,1]
  414.         STORE '33' TO Page[9,1]
  415.         STORE '34' TO Page[10,1]
  416.         STORE '35' TO Page[11,1]
  417.         STORE '36' TO Page[12,1]
  418.         STORE '37' TO Page[13,1]
  419.         STORE '38' TO Page[14,1]
  420.         STORE '39' TO Page[15,1]
  421.         STORE '40' TO Page[16,1]
  422.         DO Number.spr
  423.  
  424.     CASE M.Slct = 'Griddles' AND M.Mke = 'Lodge'
  425.         M.Numb = 120
  426.         SCXFND = .T.
  427.     CASE M.Slct = 'Griddles' AND M.Mke = 'Wells'
  428.         M.Numb = 160
  429.         SCXFND = .T.
  430.  
  431.     CASE M.Slct = 'Hamburger Mold' AND M.Mke = 'Miscellaneuos'
  432.         M.Numb = 132
  433.         SCXFND = .T.
  434.     CASE M.Slct = 'Hamburger Mold' AND M.Mke = 'Vollrath'
  435.         M.Numb = 134
  436.         SCXFND = .T.
  437.  
  438.     CASE M.Slct = 'Hollware' AND M.Mke = 'Oneida'
  439.         DIMENSION Page[2,1]
  440.         STORE '90' TO Page[1,1]
  441.         STORE '91' TO Page[2,1]
  442.         DO Number.spr
  443.     CASE M.Slct = 'Hollware' AND M.Mke = 'Vollrath'
  444.         DIMENSION Page[4,1]
  445.         STORE '87' TO Page[1,1]
  446.         STORE '88' TO Page[2,1]
  447.         STORE '89' TO Page[3,1]
  448.         STORE '92' TO Page[4,1]
  449.         DO Number.spr
  450.  
  451.     CASE M.Slct = 'Marmite' AND M.Mke = 'Spring Switzerland'
  452.         M.Numb = 94
  453.         SCXFND = .T.
  454.     CASE M.Slct = 'Marmite' AND M.Mke = 'Bel-Terr China Inc.'
  455.         M.Numb = 8
  456.         SCXFND = .T.
  457.     CASE M.Slct = 'Marmite' AND M.Mke = 'Hall China'
  458.         M.Numb = 6
  459.         SCXFND = .T.
  460.  
  461.     CASE M.Slct = 'Mashers' AND M.Mke = 'Falcon Hodges'
  462.         M.Numb = 151
  463.         SCXFND = .T.
  464.     CASE M.Slct = 'Mashers' AND M.Mke = 'Miscellaneuos'
  465.         M.Numb = 132
  466.         SCXFND = .T.
  467.  
  468.     CASE M.Slct = 'Measures' AND M.Mke = 'Lincoln Foodservice'
  469.         M.Numb = 126
  470.         SCXFND = .T.
  471.     CASE M.Slct = 'Measures' AND M.Mke = 'Vollrath'
  472.         M.Numb = 122
  473.         SCXFND = .T.
  474.  
  475.     CASE M.Slct = 'Mixers' AND M.Mke = 'Univex Corp.'
  476.         M.Numb = 148
  477.         SCXFND = .T.
  478.     CASE M.Slct = 'Mixers' AND M.Mke = 'Varimixer'
  479.         M.Numb = 150
  480.         SCXFND = .T.
  481.  
  482.     CASE M.Slct = 'Ovens, Convection' AND M.Mke = 'Wells'
  483.         M.Numb = 158
  484.         SCXFND = .T.
  485.     CASE M.Slct = 'Ovens, Convection' AND M.Mke = 'Vulcan'
  486.         M.Numb = 169
  487.         SCXFND = .T.
  488.     CASE M.Slct = 'Ovens, Convection' AND M.Mke = 'Blodgett'
  489.         DIMENSION Page[2,1]
  490.         STORE '170' TO Page[1,1]
  491.         STORE '171' TO Page[2,1]
  492.         DO Number.spr
  493.     CASE M.Slct = 'Ovens, Convection' AND M.Mke = 'Garland'
  494.         DIMENSION Page[2,1]
  495.         STORE '167' TO Page[1,1]
  496.         STORE '168' TO Page[2,1]
  497.         DO Number.spr
  498.  
  499.     CASE M.Slct = 'Pans, Fry' AND M.Mke = 'Lincoln Foodservice'
  500.         M.Numb = 114
  501.         SCXFND = .T.
  502.     CASE M.Slct = 'Pans, Fry' AND M.Mke = 'Wearever'
  503.         M.Numb = 118
  504.         SCXFND = .T.
  505.  
  506.     CASE M.Slct = 'Pans, Sauce' AND M.Mke = 'Lincoln Foodservice'
  507.         DIMENSION Page[2,1]
  508.         STORE '114' TO Page[1,1]
  509.         STORE '115' TO Page[2,1]
  510.         DO Number.spr
  511.     CASE M.Slct = 'Pans, Sauce' AND M.Mke = 'Wearever'
  512.         M.Numb = 118
  513.         SCXFND = .T.
  514.  
  515.     CASE M.Slct = 'Peelers' AND M.Mke = 'Miscellaneuos'
  516.         M.Numb = 47
  517.         SCXFND = .T.
  518.     CASE M.Slct = 'Peelers' AND M.Mke = 'Vollrath'
  519.         M.Numb = 131
  520.         SCXFND = .T.
  521.  
  522.     CASE M.Slct = 'Pitchers' AND M.Mke = 'Continental/Silite'
  523.         M.Numb = 56
  524.         SCXFND = .T.
  525.     CASE M.Slct = 'Pitchers' AND M.Mke = 'Libbey'
  526.         DIMENSION Page[3,1]
  527.         STORE '26' TO Page[1,1]
  528.         STORE '27' TO Page[2,1]
  529.         STORE '40' TO Page[3,1]
  530.         DO Number.spr
  531.     CASE M.Slct = 'Pitchers' AND M.Mke = 'Lincoln Foodservice'
  532.         DIMENSION Page[2,1]
  533.         STORE '126' TO Page[1,1]
  534.         STORE '128' TO Page[2,1]
  535.         DO Number.spr
  536.  
  537.     CASE M.Slct = 'Pizza Cutters' AND M.Mke = 'Miscellaneuos'
  538.         M.Numb = 38
  539.         SCXFND = .T.
  540.     CASE M.Slct = 'Pizza Cutters' AND M.Mke = 'Russell Harrington'
  541.         DIMENSION Page[2,1]
  542.         STORE '107' TO Page[1,1]
  543.         STORE '109' TO Page[2,1]
  544.         DO Number.spr
  545.  
  546.     CASE M.Slct = 'Ranges, Restaurant' AND M.Mke = 'Garland'
  547.         M.Numb = 174
  548.         SCXFND = .T.
  549.     CASE M.Slct = 'Ranges, Restaurant' AND M.Mke = 'Wolf Range'
  550.         M.Numb = 175
  551.         SCXFND = .T.
  552.  
  553.     CASE M.Slct = 'Rarebit' AND M.Mke = 'Bel-Terr China Inc.'
  554.         M.Numb = 7
  555.         SCXFND = .T.
  556.     CASE M.Slct = 'Rarebit' AND M.Mke = 'Hall China'
  557.         M.Numb = 6
  558.         SCXFND = .T.
  559.  
  560.     CASE M.Slct = 'Refrigerators' AND M.Mke = 'Delfield'
  561.         M.Numb = 177
  562.         SCXFND = .T.
  563.     CASE M.Slct = 'Refrigerators' AND M.Mke = 'True'
  564.         M.Numb = 178
  565.         SCXFND = .T.
  566.  
  567.     CASE M.Slct = 'Salt & Pepper Shakers' AND M.Mke = 'Tablecraft'
  568.         M.Numb = 62
  569.         SCXFND = .T.
  570.     CASE M.Slct = 'Salt & Pepper Shakers' AND M.Mke = 'Chef Specialties'
  571.         M.Numb = 63
  572.         SCXFND = .T.
  573.     CASE M.Slct = 'Salt & Pepper Shakers' AND M.Mke = 'Libbey'
  574.         DIMENSION Page[3,1]
  575.         STORE '26' TO Page[1,1]
  576.         STORE '27' TO Page[2,1]
  577.         STORE '37' TO Page[3,1]
  578.         DO Number.spr
  579.         
  580.     CASE M.Slct = 'Sauce Pans' AND M.Mke = 'Lincoln Foodservice'
  581.         DIMENSION Page[2,1]
  582.         STORE '114' TO Page[1,1]
  583.         STORE '115' TO Page[2,1]
  584.         DO Number.spr
  585.     CASE M.Slct = 'Sauce Pans' AND M.Mke = 'Wearever'
  586.         M.Numb = 118
  587.         SCXFND = .T.
  588.  
  589.     CASE M.Slct = 'Scoops' AND M.Mke = 'Miscellaneuos'
  590.         DIMENSION Page[2,1]
  591.         STORE '44' TO Page[1,1]
  592.         STORE '129' TO Page[2,1]
  593.         DO Number.spr
  594.     CASE M.Slct = 'Scoops' AND M.Mke = 'Rubbermaid'
  595.         M.Numb = 73
  596.         SCXFND = .T.
  597.  
  598.     CASE M.Slct = 'Seafood Utensils' AND M.Mke = 'Vollrath'
  599.         DIMENSION Page[2,1]
  600.         STORE '77' TO Page[1,1]
  601.         STORE '78' TO Page[2,1]
  602.         DO Number.spr
  603.     CASE M.Slct = 'Seafood Utensils' AND M.Mke = 'Continental/Silite'
  604.         M.Numb = 78
  605.         SCXFND = .T.
  606.     CASE M.Slct = 'Seafood Utensils' AND M.Mke = 'Service Ideas'
  607.         M.Numb = 78
  608.         SCXFND = .T.
  609.  
  610.     CASE M.Slct = 'Servers' AND M.Mke = 'Hall China'
  611.         M.Numb = 68
  612.         SCXFND = .T.
  613.     CASE M.Slct = 'Servers' AND M.Mke = 'Traex'
  614.         M.Numb = 65
  615.         SCXFND = .T.
  616.  
  617.     CASE M.Slct = 'Shelving' AND M.Mke = 'Falcon Hodges'
  618.         M.Numb = 151
  619.         SCXFND = .T.
  620.     CASE M.Slct = 'Shelving' AND M.Mke = 'Metro'
  621.         M.Numb = 152
  622.         SCXFND = .T.
  623.  
  624.     CASE M.Slct = 'Shirred Egg' AND M.Mke = 'Bel-Terr China Inc.'
  625.         M.Numb = 7
  626.         SCXFND = .T.
  627.     CASE M.Slct = 'Shirred Egg' AND M.Mke = 'Hall China'
  628.         M.Numb = 6
  629.         SCXFND = .T.
  630.  
  631.     CASE M.Slct = 'Sinks' AND M.Mke = 'Advance'
  632.         DIMENSION Page[2,1]
  633.         STORE '188' TO Page[1,1]
  634.         STORE '189' TO Page[2,1]
  635.         DO Number.spr
  636.     CASE M.Slct = 'Sinks' AND M.Mke = 'Tabco'
  637.         M.Numb = 188
  638.         SCXFND = .T.
  639.  
  640.     CASE M.Slct = 'Slicers' AND M.Mke = 'Russell Harrington'
  641.         DIMENSION Page[3,1]
  642.         STORE '101' TO Page[1,1]
  643.         STORE '102' TO Page[2,1]
  644.         STORE '103' TO Page[3,1]
  645.         DO Number.spr
  646.     CASE M.Slct = 'Slicers' AND M.Mke = 'Univex Corp.'
  647.         M.Numb = 148
  648.         SCXFND = .T.
  649.  
  650.     CASE M.Slct = 'Stemware' AND M.Mke = 'Anchor Hocking'
  651.         DIMENSION Page[2,1]
  652.         STORE '18' TO Page[1,1]
  653.         STORE '19' TO Page[2,1]
  654.         DO Number.spr
  655.     CASE M.Slct = 'Stemware' AND M.Mke = 'Libbey'
  656.         DIMENSION Page[7,1]
  657.         STORE '25' TO Page[1,1]
  658.         STORE '27' TO Page[2,1]
  659.         STORE '28' TO Page[3,1]
  660.         STORE '29' TO Page[4,1]
  661.         STORE '30' TO Page[5,1]
  662.         STORE '31' TO Page[6,1]
  663.         STORE '32' TO Page[7,1]
  664.         DO Number.spr
  665.  
  666.     CASE M.Slct = 'Stock Pots' AND M.Mke = 'Lincoln Foodservice'
  667.         DIMENSION Page[2,1]
  668.         STORE '114' TO Page[1,1]
  669.         STORE '116' TO Page[2,1]
  670.         DO Number.spr
  671.     CASE M.Slct = 'Stock Pots' AND M.Mke = 'Vollrath'
  672.         M.Numb = 117
  673.         SCXFND = .T.
  674.  
  675.     CASE M.Slct = 'Strainers' AND M.Mke = 'Vollrath'
  676.         M.Numb = 122
  677.         SCXFND = .T.
  678.     CASE M.Slct = 'Strainers' AND M.Mke = 'Lincoln Foodservice'
  679.         M.Numb = 128
  680.         SCXFND = .T.
  681.     CASE M.Slct = 'Strainers' AND M.Mke = 'Miscellaneous'
  682.         M.Numb = 44
  683.         SCXFND = .T.
  684.  
  685.     CASE M.Slct = 'Sugar Caddy' AND M.Mke = 'Miscellaneous'
  686.         M.Numb = 66
  687.         SCXFND = .T.
  688.     CASE M.Slct = 'Sugar Caddy' AND M.Mke = 'Libbey'
  689.         M.Numb = 26
  690.         SCXFND = .T.
  691.     CASE M.Slct = 'Sugar Caddy' AND M.Mke = 'Bel-Terr China Inc.'
  692.         M.Numb = 7
  693.         SCXFND = .T.
  694.     CASE M.Slct = 'Sugar Caddy' AND M.Mke = 'Hall China'
  695.         M.Numb = 6
  696.         SCXFND = .T.
  697.  
  698.     CASE M.Slct = 'Table Tops' AND M.Mke = 'Miscellaneuos'
  699.         M.Numb = 195
  700.         SCXFND = .T.
  701.     CASE M.Slct = 'Table Tops' AND M.Mke = 'Virco'
  702.         M.Numb = 194
  703.         SCXFND = .T.
  704.  
  705.     CASE M.Slct = 'Tongs' AND M.Mke = 'Miscellaneuos'
  706.         M.Numb = 44
  707.         SCXFND = .T.
  708.     CASE M.Slct = 'Tongs' AND M.Mke = 'Vollrath'
  709.         M.Numb = 130
  710.         SCXFND = .T.
  711.  
  712.     CASE M.Slct = 'Tote Boxes' AND M.Mke = 'Miscellaneuos'
  713.         M.Numb = 184
  714.         SCXFND = .T.
  715.     CASE M.Slct = 'Tote Boxes' AND M.Mke = 'Rubbermaid'
  716.         M.Numb = 141
  717.         SCXFND = .T.
  718.  
  719.     CASE M.Slct = 'Trays' AND M.Mke = 'Wearever'
  720.         M.Numb = 86
  721.         SCXFND = .T.
  722.     CASE M.Slct = 'Trays' AND M.Mke = 'Continental/Silite'
  723.         M.Numb = 56
  724.         SCXFND = .T.
  725.     CASE M.Slct = 'Trays' AND M.Mke = 'Lincoln'
  726.         M.Numb = 86
  727.         SCXFND = .T.
  728.  
  729.     CASE M.Slct = 'Tumblers' AND M.Mke = 'Libbey'
  730.         DIMENSION Page[9,1]
  731.         STORE '25' TO Page[1,1]
  732.         STORE '27' TO Page[1,1]
  733.         STORE '28' TO Page[2,1]
  734.         STORE '29' TO Page[3,1]
  735.         STORE '31' TO Page[4,1]
  736.         STORE '33' TO Page[5,1]
  737.         STORE '34' TO Page[6,1]
  738.         STORE '35' TO Page[7,1]
  739.         STORE '36' TO Page[8,1]
  740.         STORE '38' TO Page[9,1]
  741.         DO Number.spr
  742.     CASE M.Slct = 'Tumblers' AND M.Mke = 'Continental/Silite'
  743.         M.Numb = 56
  744.         SCXFND = .T.
  745.     CASE M.Slct = 'Tumblers' AND M.Mke = 'Anchor Hocking'
  746.         M.Numb = 20
  747.         SCXFND = .T.
  748.  
  749.     CASE M.Slct = 'Turners' AND M.Mke = 'Russell Harrington'
  750.         DIMENSION Page[3,1]
  751.         STORE '104' TO Page[1,1]
  752.         STORE '107' TO Page[2,1]
  753.         STORE '108' TO Page[3,1]
  754.         DO Number.spr
  755.     CASE M.Slct = 'Turners' AND M.Mke = 'Vollrath'
  756.         M.Numb = 130
  757.         SCXFND = .T.
  758.  
  759.     CASE M.Slct = 'Utility Carts' AND M.Mke = 'Metro'
  760.         M.Numb = 165
  761.         SCXFND = .T.
  762.     CASE M.Slct = 'Utility Carts' AND M.Mke = 'Rubbermaid'
  763.         M.Numb = 183
  764.         SCXFND = .T.
  765.  
  766. ENDCASE
  767.  
  768. IF SCXFND = .T.
  769.     do (ALLTRIM(STR(M.Numb))+'.spr')
  770. ENDIF
  771.  
  772. *       *********************************************************
  773. *       *                                                         
  774. *       * _QSI0RIXPR           Read Level Activate                
  775. *       *                                                         
  776. *       * Function Origin:                                        
  777. *       *                                                         
  778. *       *                                                         
  779. *       * From Platform:       Windows                            
  780. *       * From Screen:         PRO                                
  781. *       * Called By:           READ Statement                     
  782. *       * Snippet Number:      2                                  
  783. *       *                                                         
  784. *       *********************************************************
  785. *
  786. FUNCTION _qsi0rixpr     && Read Level Activate
  787. *
  788. * Activate Code from screen: PRO
  789. *
  790. #REGION 1
  791. SCXFND = .F.
  792. M.Mke=PRO[1,1]